Application Notes 
on the 

Atari Computer System Interface (ACS!) 


The Atari Corporation 
Sunnyvale. California 
27 September 1985 


towim 



27 September 1985 


1 


THE SCOPE OF THIS DOCUMENT is limited to a set of rough 
application notes on the Atari Computer System Interface. 
This is a preliminary document and is subject to change 
without notice. 

1. ACSI Bus 

o control signals and a bidirectional bus. 
o target does not receive a command and hold it pend- 
ing controller ready — an immediate DEVICE NOT READY 
error must be sent or the initiator will time out and 
assume controller nonexistent. 

o controller self test — recalibrate* ram check) rom 
checksum) etc. 

o self test always performed following reset — elim- 
inates need for self test command. 

o initiator could time out (duration to be determined) 
on a command and reset the target. 

o once the status byte is returned the bus is free, 
o maximum eight bus ports, 
o data transfer rate is up to 8 Mbit/sec. 


ACSI Bus Topology 


(Initiator ! 


(Target 0! 'Target 1! 


I 


(Device ! 


(Device ( 


(Target 7! 


(Device ! (Device 
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Control and Data Signals 


Mnemonic 

Name 

Characteristics 

RST 

A1 

Reset 
Address 1 

TTL levels, active low. 
TTL levels. 

_IRQ 

Interrupt Request 

TTL levels, active low. 
1 Kohm pullup on 
initiator side. 

CS 

R/ W 

Chip Select 
Read/Write 

TTL levels, active low. 
TTL levels. 

_DRQ 

Data Request 

TTL levels, active low. 
1 Kohm pullup on 
initiator side. 

ACK 

Ac knowledge 

TTL levels, active low. 

DATA 

Data Bus (0-7) 

TTL levels. 


Initiator ACSI Port Pin Assignments 


INITIATOR DB 19S TARGET 

1 !< Data 0 >: 

2 ! < Data 1 >i 

3 !< Data 2 

4 !< Data 3 >i 

5 ! < Data 4 >! 

6 ! < Data 5 >i 

7 !< Data 6 >i 

8 !< Data 7 >! 

9 ! Chip Select >! 

10 !< Interrupt Request ! 

1 1 ! Ground ! 

12 ! Reset >! 

13 ! Ground — — — — ! 

14 ! Acknowledge >! 

15 ! Ground ! 

16 ! A1 >! 

1 7 ! Ground — ! 

18 ! Read/Write >! 

19 ! < Data Request ! 
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2. ACSI Compliance 
2. 1. Level 1 

o target will speak only when spoken to. 
o listen to bus during idle — no disconnect, 
o abort initiator via interrupt. 

o abort target via reset — software reset must be 
provided in initiator. 

o RESET HOLD TIME is 12 microseconds, 
o reset has highest bus priority. 

o reset cannot be asserted by a target whether active 
or inactive. 

o 100 milliseconds before initiator times out on tar- 
get acknowledgement. 

o CAVEAT: if an initiator prematurely issues a com- 

mand while the target is executing a command* then the 
results are unpredictable. 

o device driver in initiator will wait until status 
byte is returned — otherwise time out (TBD) and reset 
target. 

o after receipt of command byte* transaction belongs 
to controller. 

o target has complete control of bus until status byte 
is returned. 

o each target should have a user select controller 
number. 
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-HARDWARE. 


— - — Command Phase 

Data direction: FROM initiator TO target. 


Ai 


\ 

— 

. / 


IRQ 



\ 

/ 

\ 

_CS 


\ / 


\ / 




i : 

1 » 

_______ • a 


t 1 

1 1 

1 1 

, . ltall| 1 1 


R/_W 

# 

\ 

/ 

\ 

/ 



: : 

1 

: : : 

1 

DATA 


: i s 

1 

1 

: : ; 

1 

1 


— — vftL 1 jj— — — 
1 : 

1 

» 

=“=-><- — — vAL I D — 

* I ! 

— >o«= 

1 

« 



! <-a-> ! < — b >!Oc 

->! 

! <-a-> ! < — b > ! <-c 

— > i 



Byte 0 


Byte 1 


T iming 







a) 

60 ns (max) 





b) 

250 ns (max) 





c) 

20 ns (max) 
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Status Phase 

Data direction: FROM target TO initiator. 


A1 

IRQ 

_CS 

R/_W 

DATA 


/ 

i 


S 


I 

«**>< VAL I D ><«■«» 


II ■ { I 

i <— a — > ! < — b — > i C-c — > S <-d --> ! 


Byte 0 


Timing 

a) 50 ns (max) 
b> 150 ns (max) 
c> 100 ns (max) 
d) 80 ns (max) 


SOFTWARE. 


Controller Select Byte — 

Byte 0 !xxx { 

I I I 
I I I 

— Controller Number 


— Completion Status Byte 

Byte 0 i i 
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2,2. Level 2 

o include Level 1. 

o TEST UNIT READY command is used as a poll, 
o NO ERROR is to be interpreted as controller ready, 
o DEVICE NOT READY is to be interpreted as controller 
not ready. 

SOFTWARE. 


Command Descriptor Byte 


Byte 0 


Operation Code 
Controller Number 


Command Summary Table 


OpCode 

i Command 

0x00 

! Test Unit Ready 


Completion Status Byte 


Byte 0 


i xxxxxxxx • 

:::::::: 

• ■ « Error Code 

Device Number 


Device Errors 

OxOO No Error 

0x04 Device Not Ready 

Miscellaneous Errors 

0x30 Controller Self Test Failed 
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2. 3. Level 3 

o include Level 1 and Level 2. 
HARDWARE. 


Data Out Phase 

Data direction: FROM initiator TO target. 


A1 


DRQ 



_ACK \ / 

S ! I 

! ! ■ 

DATA «—»»==>< VALID ><«»«* 

! i I : 

i <-a-> ! < b > ! <-a-> ! 

!< — c — >! I< — d — >8 

Timing 

a> 60 ns (max) 

b) 250 ns (max) 

c) 240 ns (max) 

d) 240 ns (min) 
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’ Data In Phase 

Data direction: FROM target TO initiator. 


A1 


DRQ \ j 

I 

I 

_ACK ' \ / 

: \ i : 

i i J : 

DAT A ===*=*=========>< VAL I D ><==== 

i : : : i 

!<-a->! :< b > ! <— c— > i 


T iming 

a) 60 ns (max) 

b) 250 ns (max) 

c) 50 ns (min) 
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SOFTWARE. 

' ACSI Command Descriptor Block 


Byte 0 ixxxxxxxx! 


Byte 

1 

« 1 1 
III 

ixxxxxxxxS 

Operation Code 
Controller Number 



• • • 1 • t 1 1 

Block Address High 



lit 

Byte 

2 

ixxxxxxxxS 

1 1 1 1 1 1 1 f 
1 1 1 t 1 » 1 1 

Block Address Mid 

Byte 

3 

ixxxxxxxx! 
1 1 1 1 ! 1 1 1 




Block Address Low 

Byte 

4 

Ixxxxxxxx! 

1 1 1 1 1 1 1 1 
iiiiiati 

ixxxxxxxx! 

< 1 t 1 1 1 t 1 

Byte 

5 

Block Count 



1 1 t 1 1 I » 1 

Control Byte 


Command Summary Table 


OpCode 

! Command 

! 

OxOO 

! Test Unit Ready 

! 

0x08 

S Read 

! * 

OxOa 

! Write 

S * 

OxOb 

! Seek 

1 

1 

Ox la 

! Mode Sense 

1 

1 


* multisector transfer with implied seek 
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Command Errors 

0x20 Invalid Command 
0x21 Invalid Address 
0x23 Volume Overflow 
0x24 Invalid Argument 
0x25 Invalid Device Number 
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3. ACS I Initiator 

o must transfer data in 16 byte increment blocks, 
o must use ST BIOS system variable flock (see A 
Hitchhiker's Guide to the BIOS). 


— Initiator Handshake Sequence 

o load DMA Base Address Register. 

o toggle Write/_Read to clear status (DMA Mode Control Register), 
o select DMA read or write (DMA Mode Control Register), 
o select DMA Sector Count Register (DMA Mode Control Register), 
o load DMA Sector Count Register (DMA operation trigger), 
o select controller internal command register (DMA Mode Control 
Register ). 

o issue controller select byte by clearing AO to 0. 
o set AO to 1 for remaining command bytes. 

o after last command byte select controller (DMA Mode Control 
Register). 

o DMA active until sector count is xero (DMA Status Register. 

do not poll during DMA active), 
o check DMA error status (DMA Status Register), 
o check controller status byte. 
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loadable equ 


nonzero for loadable driver 




* 

* ST SASI hard 

* <01985 Atari 
» 


* 

9-Apr-1985 

lmd 

* 

14-Apr— 1985 

lmd 

* 

20— Apr-1985 

lmd 

* 

24— Jun-1985 

JWt 

* 

Ol-Jul-1985 

jwt 

« 

22-Jul-1985 

JWt 

* 

23-Jul— 1985 

jwt 


* 

* 

* 

* 


disk driver 
Corp. 


Hacked it up. "Cee. it seems to work ..." 
linked with BIOS <#**FOR NOW*#*) 
hacked for WD controller (now. wired... ) 
hacked for Adaptec, new kludge board 
seems to work, add more formatting and more 
detailed error reporting 
change timing of wdc/wdl at start of command. 

added extra move, w *8a. wdl to change A1 
use a move. 1 instruction for all wdc/wdl write 
pairs since it changes A1 quickly enough that 
the (old) DMA chip does not incorrectly 
generate two chip selects 


*■ 


flock 

equ 

*43 e 

hdv_init 

equ 

*46a 

hdv_bpb 

equ 

*472 

hdv_rw 

equ 

*476 

hdv_boot 

equ 

*47a 

hdv_mediach 

equ 

*47e 

_drvb its 

equ 

«4c2 

_dskbuf p 

equ 

«4c6 

nretries 

equ 

3 


. FIFO lock variable 
» hdv_init ( ) 
i hdv_bpb(dev) 

i hdv_rw(rw« buf. count, recno. 
j hdv_boot() 
i hdv_med iach < dev) 
i block device bitVector 
i pointer to common disk buffer 

j #retries-l 


* _____ 

. globl 
i_sasi: bra 


— Installer 

i_sasi 

i_sasi2 


dc.b / «(*)ahdx vO. 04 '. *0d» *0a. 0. *1A 


Front End 


*+ 

* LONG hbpb(dev) - return ptr to BPB (or NULL) 

* 

* Passed: dev 4(sp ). W 

* 

*- 

hbpb : 

move, w 4(sp).dO ■, dO = devno 

move. 1 o_bpb. aO a 0 -> pass-through vector 
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lea _sasi_bpb (pc )« al • al — > our handler 

bra check_dev .• do it 


*+ 


* LONG rw(rw. 

buf. count, recno. 

* 

* Passed: 

dev 

*e(sp). U 

* 

recno 

*c ( sp ) . W 

* 

count 

4a(sp ). W 

* 

buf 

6( sp ). L 

* 

ru 

4(sp>. W 

* 

*- 

hrw: 



move, w *e(sp ). dO 
move. 1 o_rui aO 
lea _sasi_rw(pc ). al 

bra check dev 


dO * devno 

aO -> pass-through vector ' 

al — > our handler 

doit 


* LONG mediach(dev) 

* Passed: dev 4(sp). W 


hmediach: 

move, w 4(sp ). dO 

move. 1 o_mediach.aO 

lea _sasi_mediach (pc ). al 


j dO ■ devno 

J aO — > pass-through vector 
i al -> our handler 


*+ 

* check_dev 

* Passed: 

* 

* 

* 

# 

* Jumps-to: 

* 

# 


use handler, or pass vector through 

dO. w ■ device# 

aO -> old handler 

al -> new handler 

a5 — > 40000 (xero— page ptr) 

(al) if dev in range for this handler 
(aO) otherwise 


chec k_dev: 

cmp. w 
bne 

move. 1 
chkd_f: jmp 


#2. dO 
chkd^f 
al. aO 
(aO) 


i devnos match? 
i (no > 

i yes — follow success vector 
i do it 


Medium level driver 
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*+ 

* _*asi_init - initialize SAS1 dev 

* Passed: nothing 

* Returns: dO < 0: error 

* dO ==0: success 

* function performed by __hinit and the assembler won't 

* m ® nave a forward reference here 
*- 

* . globl _sasi_init 

*_sasi_init: equ _hinit 


*+ 

* _sasi_bpb 

* Synopsis: 

* 

* 

* Returns: 

» 


return BPB for hard drive 
LONG _sasi bpb(dev) 

WORD dev; 

NULLi or a pointer to the BPB buffer 


*— 

. globl _sasi_bpb 
_sasi_bpb: 

move. 1 #thebpb< dO 
rts 






* _*a*i_rw - read/write hard sectors 



* Synopsis: 

* 

_***i_rw<rw« buf» count 

4 

recno. dev) 

* Passed: 

dev *e(sp).W 



* 

recno *c(sp).W 



* 

count *a(sp).W 



* 

buf 6(sp >. L 



* 

* 

rw 4(sp ). U 

J 

non— zero — > write 

*— 




. globl 

_sasi_rw 



_sasi__rw: 




move, w 

#nretries» retrycnt 

1 

setup retry counter 

sasrwl: moveq 

#0. dO 

i 

coerce word to long 

move, w 

*c(sp>, dO 

1 

sect. L 

move, w 

•a ( sp )» dl 

i 

count. W 

move. 1 

6( sp ) » d2 

1 

buf. L 

move, w 

4<sp )« d3 

i 

rw 

clr. w 

-<sp) 

1 

dev a o 

move. 1 

d2< — < sp ) 

1 

buf 

move, w 

dli -(sp) 

i 

count 

move. 1 

dO* — ( sp ) 

J 

sect 

tst. w 

d3 

4 

read or write? 

bne 

sasrw3 

4 

(write) 

bsr 

_hread 

4 

read sectors 

bra 

sasrw2 



sasrw3: bsr 

_h ur i t e 

J 

write sectors 
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unsigned 




i (cleanup stack) 

; errors? 

# no — success 
; drop retry count and retry 


has changed (it never does) 


#by tes/sector 
#sec tors/c luster 
#by tes/c luster 

rdlen (256 root files) (in sectors) 
FATsiz (10300 FAT entries) (sectors) 
2nd FAT start 
data start (in sectors) 

#clusters (approximate here) 
flags (16-bit FATs) 


FIFO lock variable 
200hz system ticker 


used for long writes 
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smalow equ dmamid+2 

: p i p equ *f f f aOl 

* Tunable: 


t imeout 

equ 

*80000 

, long— timeout 

timeout 

equ 

*80000 

i short-timeout 


f + 


> LONG 

.qd one ( ) 

- Wait for operation c 

omp 1 ete 

* Passed 

* 


nothing 


v Returns: 

EG: no timeout 


* 


MI: timeout condition 


Uses: 


DO 


qdone: 

move. 1 

(tltimeout. tocount 


Id 1 : 

subq. 1 

#1 . tocount 

» drop timeout count 


bmi 

qdq 

i (i give up. return NE) 


move, b 

gp i p . dO 

i interrupt? 


and. b 

#*20. dO 



bne 

qd 1 

i (not get) 


moveq 

#0. dO 

i return EG (no timeout) 

id q ; 

rts 




* WORD _endcmd() 

* Wait for end of SASI command 

* Passed: dO value to be written to wd 1 

*• 


*■ Returns: 

* 

* 

* 

* Uses: 

t— 

endcmd: move 

b sr 
bmi 


EG: success (error code in DO. W) 

MI: timeout 

NE: failure (SASI error code in DO W) 


dO. dl 

dO. dl 

_qd one 
end c e 


preserve wdl value 

wait for operation complete 
(timed-outi so complain) 


move, w d 1 • wd 1 
nop 

move, w wd c < dO 
and. w #*00ff. dO 


get the result 

(clean it up), if non-iero should 


rts 


do a ReadSense command to 


learn more 


r-f 

* hinit(dev) 
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* WORD dev; 

* Initialize hard disk 

* 

* Returns: -1 if hard disk not there 

* 


*— 

. g lob 1 _sasi_init 
_sa.si_init: 

_h i n i t : 

pea actur « push test unit read command bloc 

bsr _dosahdxc 

addq. 1 #4, sp 

rts 


*- 

* _hread ( sec tno. 

* LONG sectno; 

* WORD count; 

* LONG buf; 

* WORD dev; 

* 

* Returns: 

* 

* 


counti buf. dev) 

4(sp ) 

8( sp ) 

4a(sp) 4b=high» 
4e( sp ) 

-1 on timeout 
0 on success 
nonzero on error 


4c s mid< 


4d**low 


*— 


_hread: 


hr x : 


. globl _hread 

st flock ; lock FIFO 


move 

#488. wd 1 


move. 1 

#40008008a> wdcwdl 

J 

move. 1 

4a ( sp ) i - ( sp ) 

1 

bsr 

setdma 


addq 

#4. sp 


bsr 

_setss 

i 

bmi 

_hto 


move, w 

#4190. wdl 


nop 

move, w 

#490. wd 1 


nop 

move, w 

8( sp ) . wdc 

i 

nop 

move, w 

#48a. wdl 


nop 

move. 1 

#400000000. wdcwdl 

i 

move, w 

#48a. dO 


bsr 

_endcmd 


bra 

_hdone 

i 


08 wdc. 8a wdl 
set DMA address 

set sector and size 


write sector count to DMA chip 
control byte 0 wdc 0 wdl 

cleanup after IRQ 
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* _hur i te ( sec tno, count, buf, dev) 


* LONG sec tno; 

4<sp ) 


* WORD count; 

8 ( sp ) 


* LONG buf; 

$a < sp ) $b = h i gh . 

$c =m id, $d = 1 ow 

* WORD dev; 

$e ( sp ) 


*— 

. globl 

_hwr i te 


_hwr i te: 

st 

flock 

; lock FIFO 

move. 1 

$a(sp). - < sp ) 

; set DMA address 

b sr 

_setdma 


ad d q 

#4. sp 


move 

#$88. wd 1 


move. 1 

#$000a008a, wdcwd 1 

; Oa wdc 8a wd 1 

b sr 

_s e t s s 


bmi 

_h t o 


move, w 

#$90, wd 1 


nop 

move, w 

#$190, wd 1 


nop 

move, w 

8< sp ) , wdc 

; sector count for DMA cr 

nop 

move, ui 

#$18a> wd 1 


nop 

move. 1 

#$00000100, wdcwd 1 


move, uj 

#$18a, dO 


bsr 

_end cmd 


hwx: bra 

_h d one 

; cleanup after IRQ 

# + 

* wd format - 

format WD hard disk 


* Passed: 

nothing 


* Returns: 

0. or -N 


* Uses: 

<. . > 



* 




.globl _wd_format 


lat: lea 

ac f mt, aO 

c 1 r . w 

dO 

st 

flock 

move, w 

#$88, wd 1 

move, b 

( aO ) +, dO 

swap 

dO 

move, w 

#$8a, dO 

move. 1 

dO, wdc 

moveq 

#(5-1 ), dl 


; pick up pointer to the 
; lock FIFO 

; get the command byte 

i byte wdc 8a wd 1 
; write remaining 5 byte 
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bsr 

_qdone 

i (presumes only one unit) 

bmi 

hto 


move, b 

<aO>+. dO 

; next byte of command 

swap 

dO 


move, w 

«*8a. dO 


move. 1 

dO. wdcwd 1 


dbra 

d 1. fmtl 


btst 

#5. gp.ip 

i wait (forever) for completion 

bne 

fmt2 


move, w 

wdc. dO 

i get the status 

andi. w 

#*OOFF, dO 

< only low byte is significant 

bra 

_hdone 

i cleanup after IRQ 


f 

_wd_setup - setup parameters for WD hard disk 


.globl _wd_setup 
wd_setup : 


St 

flock 

pea 

adap_parms ( pc ) 

bsr 

setdma 

addq 

*4. sp 

move, w 

#*88. wd 1 

move. 1 

#*001 5008a. wdcwd 1 

bsr 

_qdone 

bmi 

wd x 

move. 1 

#*0000008a. wdcwd 1 

bsr 

_qdone 

bmi 

wd x 

move. 1 

#*0000008a. wdc wdl 

bsr 

_qdone 

bmi 

wd x 

move. 1 

#*0000008a> wdc wdl 

bsr 

_qdone 

bmi 

wd x 

move. 1 

#*00 16008a. wdcwd 1 

bsr 

_qdone 

bmi 

wd x 

move, w 

#*90. wd 1 

nop 

move, w 

#*190. wdl 

nop 

move, w 

#*01. wdc 

nop 

move, w 

#*18a< wd 1 

nop 

move. 1 

#*00000100. wdcwd 1 


i mode select command 15 wdc 8a wdl 


j 22 bytes of parameters 

i reset the DMA chip 

; 1 sector of DMA (actually less) 

» control byte 
» tudl value 
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bsr 

wdx: bra 


_endcmd 

hdone 


* parameters for 10MB WD 

adap_parms: dc. b *00, *00, *00, *08, *00, *00, *00, *00, *00, *00 

dc. b *02, *00, *01, *02, *62, *02, *01, *00, *01, *00, *00, *02 


*+ 

* LONG _j dosahdxc( addr ) BYTE *addri 

* do a simple (no DMA) ahdx command 
*- 

. globl _dosahdxc 

_dosahdxc: movea. 1 4<sp),aO < 


clr. w 

dO 


st 

flock 

i 

move, w 

#*88. wdl 


move, b 

(aO>+» dO 

» 

swap 

dO 


move, w 

#«8a, dO 


move. 1 

dO, wdcwd 1 

• 

i 

moveq 

#(5-1 ), dl 

i 

bsr 

_qdone 

i 

bmi 

_hto 


move, b 

(aO)+, dO 

i 

swap 

dO 


move, w 

#*8a, dO 


move. 1 

dO, wdcwd 1 


dbra 

d 1. dosac 1 


bsr 

_qdone 

i 

bmi 

_hto 


move. w 

wdc , dO 

i 

andi. w 

#*OOFF» dO 

i 

bra 

hdone 

t 


*+ 

* void _setdma (addr ) 

* LONG addr, 

*- 


setdma: 

move, b 
move, b 
move, b 
rts 


7< sp ) , dmalow 
6( sp ), dmamid 
5<sp ), dmahi 


pick up pointer to the command block 
lock FIFO 

get the command byte 

send it to the controller 

write remaining 5 bytes of command 
(presumes only one unit) 

next byte of command 


wait for the command to complete 
get the status 

only low byte is significant 
cleanup after IRQ 


*+ 

* WORD _setss — set sector number and number of sectors 
*- 
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bsr 

_qdone 

« 

wait for controller 

to take commar 


bmi 

setsse 





move, b 

9<sp >. dO 

i 

construct sector# 



move, b 

*e ( sp ) > d 1 

i 

ORed with devno 



lsl. b 

#5, dl 





or. b 

d 1. dO 





swap 

dO 





move, w 

#*008a< dO 





move. 1 

dO. wdcwd 1 

i 

write MSB sector# + 

devno 


bsr 

_qdone 





bmi 

setsse 





move, b 

10<sp). dO 

i 

write MidSB sector# 



swap 

dO 





move, w 

#*008a. dO 





move. 1 

dOi wdcwd 1 





bsr 

_qdone 





bmi 

setsse 





move, b 

11 (sp >. dO 


write LSB sector# 



swap 

dO 





move, w 

#*008a. dO 



. 


move. 1 

dO. wdcwd 1 





bsr 

_qdone 





bmi 

setsse 





move, w 

12( sp ) > dO 

■ 

write sector count 



swap 

dO 





move, w 

#*008a . dO 





move. 1 

dO> wdcwd 1 





bsr 

_qdone 




setsse: 

rts 





_hto: 

moveq 

#-l, dO 


indicate timeout 


_hdone: 

move, w 

#*80. wdl 


Landon's code seems 

to presume we 


nop 



put this back to *80 


tst. w 

wdc 





c lr 

flock 

» NOW. signal that we 

are done 


rts 





savssp : 


dc. 1 1 

. 

(saved SSP) 


tocount 


dc. 1 1 


timeout counter 


retrycnt: 

dc. w 1 

i retry counter 


o_init: 


dc. 1 1 




o_b p b : 


dc. 1 1 




o rw: 


dc. 1 1 




o_med iach : 

dc. 1 1 




i_sasi2 

nop 





ifne loadable 






clr. 1 

-< sp ) 


it's a b ird. . . 



move, w 

#*20. -<sp> 


... it's a plane 

. . . 


trap 

#1 


. . . no. its: 
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addq 

#6* ap 


i 

SOOUPERUSER ! 


move. 1 

dO< aavaap 


i 

"Faster than a prefetched opcode. . " 

endc 

bar 

sasi_init 


i 

• 

kick controller 


tat. in 

dO 





bne 

i aaae 


i 

punt — disk didn't respond correctly 


clr. 1 

dO 





or. 1 

drvb ita> dO 


i 

include C: bit in devVector 


or. 1 

#*4, dO 





move. 1 

dO* _drvb ita 





clr. 1 

a5 


i 

zeropage ptr 


move. 1 

hdv_bpb (a5), o 

_bpb 


* save old vectors 


move. 1 

hdv r«u(a5) . o_ 

ru» 




move. 1 

hdv_mediach (a5) . o 

_med iach 



move. 1 

#hbpb> hdv_bpb(a5) 


* install our new ones 


move. 1 

#hrw, hdv_ru(a5) 




move. 1 

#hmediach> hdv 

_mediach (a5) 


i sasq: 

nop 



i 

stupid assembler 

ifne 

loadab le 






move. 1 

aavaap* -( ap > 


9 

become a mild mannered user process 


move, in 

#*20, -(ap) 





trap 

#1 




endc 

addq 

#6. ap 



• 

ifne 

loadab 1 e 






move, hi 

#0* -(ap) 

i 

exit code 


move. 1 

#((i aaai2-i_ 

aasi)+*0100> 

*-(sp) > save code, data* & basepage 


move, in 

#*31, -(ap) 

i 

terminate and atay reaident 


trap 

#1 

i 

ahould 

never come back. . . 

endc 






rta 





isase: 

lea 

nodmag* aO 





bar 

mag 




i fne 

loadab le 






move. 1 

aavaap* -( ap ) 


i 

become a mild mannered user process 


move, in 

#*20. -(ap) 





trap 

#1 





addq 

#6, ap 




endc 

move, ui 

#1* -(ap) 



* flag error status 


move, in 

#*4c, -(ap > 


i 

terminate 


trap 

#1 




msg : 

move. 1 

aO* -( sp ) 




move, in 

#9, -(sp) 


i 

print null terminated string 
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trap 

#1 



• 


addq. 1 
rts 

#6< sp 




actur: 

dc. b 

0* 0> 0> 0> 0» 0 

; atari command: 

test unit ready 


acfmt: 

dc. b 

4* 0» 0> Ot 1 f 0 

i 

format disk 


nodmsg: 

dc. b 

'No AHDX disk response. 

*0d, *Oaf 0 



. even 
end 
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